home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
AGSOFF11.ZIP
/
AGSOFF.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-12-29
|
6KB
|
430 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
String TSTRING001(6)
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
Declare Procedure PROC001()
;------------------------------------------------------------------------------
TSTRING001(1) = " _ ______ _ ______ _ ________ _ _______ _"
TSTRING001(2) = " _ _ _ / __/_____________ / ___/________________\______/___\_____/_ _ _"
TSTRING001(3) = " _ _kL_/ \ \ _ \/ \ \ _ \ _ _/____/ _ _/____/ _ _"
TSTRING001(4) = "_ _ _ \ \ \_ / \_ \__ \_ / \_ \_ \_ _ _"
TSTRING001(5) = " _ _ _\____________/_________/__________/_________/________/_________/_ _ _"
TSTRING001(6) = ""
STRING002 = "==============================================================================="
STRING003 = "============================================================================="
STRING004 = "==========================================================================="
If (Exist(PPEPath() + "AGSOFF.CFG")) Goto LABEL001
PrintLn "@X0Cu@X04H@X08! bAD tHING! tHE cONFIG fILE wAS nOT fOUND. nORMAL lOGOFF..."
Delay 18
Bye
:LABEL001
FOpen 1, PPEPath() + "AGSOFF.CFG", 0, 2
FGet 1, INTEGER001
FGet 1, INTEGER002
FGet 1, INTEGER003
FGet 1, INTEGER005
FGet 1, STRING006
FGet 1, STRING007
FGet 1, STRING008
FGet 1, STRING009
FGet 1, STRING010
FGet 1, STRING011
FClose 1
Cls
FOpen 1, PPEPath() + "AGSOFF.DAT", 0, 2
FGet 1, STRING005
FClose 1
Color INTEGER001
AnsiPos 63, 23
Print "AEGiS LoGOFF V1.1"
Color INTEGER003
AnsiPos 1, 1
Print "-"
AnsiPos 79, 10
Print "-"
Delay 1
Color INTEGER002
AnsiPos 2, 1
Print "-"
AnsiPos 78, 10
Print "-"
Delay 1
Color INTEGER001
For INTEGER007 = 1 To 19
AnsiPos INTEGER007 * 4 - 1, 1
Print "----"
AnsiPos 78 - INTEGER007 * 4, 10
Print "----"
Delay 1
Next
Color INTEGER002
AnsiPos 78, 1
Print "-"
AnsiPos 2, 10
Print "-"
Delay 1
Color INTEGER003
AnsiPos 79, 1
Print "-"
AnsiPos 1, 10
Print "-"
Delay 4
AnsiPos 1, 8
Color INTEGER001
Print TSTRING001(6)
Delay 1
AnsiPos 1, 7
Color INTEGER001
Print TSTRING001(5)
Delay 1
AnsiPos 1, 8
Color INTEGER003
Print TSTRING001(6)
Delay 1
AnsiPos 1, 6
Color INTEGER001
Print TSTRING001(4)
Delay 1
AnsiPos 1, 7
Color INTEGER003
Print TSTRING001(5)
Delay 1
AnsiPos 1, 5
Color INTEGER001
Print TSTRING001(3)
Delay 1
AnsiPos 1, 6
Color INTEGER002
Print TSTRING001(4)
Delay 1
AnsiPos 1, 4
Color INTEGER001
Print TSTRING001(2)
Delay 1
AnsiPos 1, 3
Color INTEGER001
Print TSTRING001(1)
Delay 4
AnsiPos 1, 12
Color INTEGER001
Print STRING002
AnsiPos 1, 14
Color INTEGER001
Print STRING002
Delay 2
AnsiPos 1, 12
Color INTEGER001
Print STRING002
AnsiPos 1, 14
Color INTEGER002
Print STRING002
Delay 2
AnsiPos 1, 12
Color INTEGER003
Print STRING002
Delay 2
AnsiPos 1, 14
Color INTEGER003
Print STRING002
Delay 2
AnsiPos 2, 12
Color INTEGER002
Print STRING003
Delay 2
AnsiPos 2, 14
Color INTEGER002
Print STRING003
Delay 2
AnsiPos 3, 12
Color INTEGER001
Print STRING004
AnsiPos 3, 14
Color INTEGER001
Print STRING004
Color INTEGER001
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 3
Color INTEGER002
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 3
Color INTEGER003
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Color INTEGER002
For INTEGER007 = 1 To 78
AnsiPos 79 - INTEGER007, 13
Print Mid(STRING006, 79 - INTEGER007, 1)
Next
INTEGER008 = 1
INTEGER009 = 1
AnsiPos 1, 13
Print STRING007
PROC001()
:LABEL002
STRING012 = Inkey()
If (((STRING012 == "LEFT") || (STRING012 == "4")) && (INTEGER008 <> 1)) Then
INTEGER009 = INTEGER008
Dec INTEGER008
If (INTEGER009 == 3) Then
AnsiPos 1, 13
Print STRING010
Delay 1
AnsiPos 1, 13
Print STRING009
PROC001()
Endif
If (INTEGER009 == 2) Then
AnsiPos 1, 13
Print STRING008
Delay 1
AnsiPos 1, 13
Print STRING007
PROC001()
Endif
Endif
If (((STRING012 == "RIGHT") || (STRING012 == "6")) && (INTEGER008 <> 3)) Then
INTEGER009 = INTEGER008
Inc INTEGER008
If (INTEGER009 == 1) Then
AnsiPos 1, 13
Print STRING008
Delay 1
AnsiPos 1, 13
Print STRING009
PROC001()
Endif
If (INTEGER009 == 2) Then
AnsiPos 1, 13
Print STRING010
Delay 1
AnsiPos 1, 13
Print STRING011
PROC001()
Endif
Endif
If (STRING012 == Chr(13)) Goto LABEL003
Goto LABEL002
:LABEL003
If (INTEGER008 == 2) Then
Color INTEGER002
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER001
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
AnsiPos 1, 11
ClrEol
STRING005 = "CoOL! ;)"
Color INTEGER001
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER002
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER003
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 3
For INTEGER007 = 1 To 14
AnsiPos 1, 15 - INTEGER007
Delay 1
ClrEol
Next
End
Endif
If (INTEGER008 == 1) Then
For INTEGER007 = 1 To 14
AnsiPos 1, 15 - INTEGER007
Delay 1
ClrEol
Next
Cls
Goodbye
Endif
If (INTEGER008 == 3) Then
Color INTEGER002
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER001
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
AnsiPos 1, 11
ClrEol
Color INTEGER002
Print " "
Backup 1
STRING013 = STRING005
STRING005 = ""
InputStr "_", STRING005, 15, 79, Mask_Ascii(), 4096
If (INTEGER005 == 1) Then
STRING005 = Replace(STRING005, "@", "#")
INTEGER004 = 0
STRING014 = STRING005
For INTEGER006 = 1 To Len(STRING014)
If (InStr("0123456789", Mid(STRING014, INTEGER006, 1)) <> 0) Then
INTEGER004 = INTEGER004 + 1
Endif
Next
GetUser
If (INTEGER004 > 5) STRING005 = U_Name() + " TRIED TO ENTER A BBSAD HERE *LAME*"
Endif
If (STRING005 == "") STRING005 = STRING013
AnsiPos 1, 11
ClrEol
Color INTEGER001
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER002
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 2
Color INTEGER003
AnsiPos 40 - Len(STRING005) / 2, 11
Print STRING005
Delay 3
FOpen 1, PPEPath() + "AGSOFF.DAT", 1, 3
FPutLn 1, STRING005
FClose 1
INTEGER008 = 3
INTEGER009 = 3
AnsiPos 1, 13
Print STRING011
PROC001()
Goto LABEL002
Endif
End
;------------------------------------------------------------------------------
Procedure PROC001()
AnsiPos 1, 23
Color 0
Print " "
Backup 1
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 5 ClrEol
; 41 Color
; 25 Goto
; 35 Let
; 56 Print
; 1 PrintLn
; 20 If
; 3 FOpen
; 3 FClose
; 11 FGet
; 1 FPutLn
; 1 GetUser
; 1 InputStr
; 39 Delay
; 1 Inc
; 1 Dec
; 1 Bye
; 1 Goodbye
; 60 AnsiPos
; 2 Backup
; 1 EndProc
;
;
; ■ Functions used :
;
; 2 *
; 13 /
; 11 +
; 19 -
; 14 ==
; 3 <>
; 5 <
; 5 <=
; 1 >
; 10 >=
; 17 !
; 12 &&
; 7 ||
; 15 Len(
; 2 Mid()
; 1 Chr()
; 1 InStr()
; 1 U_Name()
; 1 Replace()
; 1 Inkey()
; 1 Mask_Ascii()
; 4 PPEPath()
; 1 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 5 For/Next
; 0 While/EndWhile
; 11 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------